//标准输入输出
#include <stdio.h>
//
#include "bootpack.h"
extern struct FIFO8 keyfifo, mousefifo;
struct MOUSE_DEC
{
	unsigned char buf[3], phase;
	int x, y, btn;
};

void enable_mouse(struct MOUSE_DEC *mdec);
void init_keyboard(void);
void HariMain(void)
{
	struct BOOTINFO *binfo = (struct BOOTINFO *)ADR_BOOTINFO;
	struct MOUSE_DEC mdec;
	char s[40], mcursor[256], keybuf[32], mousebuf[128];
	unsigned char mouse_dbuf[3], mouse_phase;
	int mx, my, i;
	//初始化 gdt idt pic
	init_gdtidt();
	init_pic();

	io_sti();				 //允许硬件中断
	io_out8(PIC0_IMR, 0xf9); /* 允许接收中断(设置pic接受中断状态) */
	io_out8(PIC1_IMR, 0xef);
	fifo8_init(&keyfifo, 32, keybuf);	   //初始化键盘缓冲区
	fifo8_init(&mousefifo, 128, mousebuf); //初始化鼠标缓冲区
	init_keyboard();

	init_palette();										  /* 设置调色板 */
	init_screen(binfo->vram, binfo->scrnx, binfo->scrny); //绘画主体
	//putfonts8_asc(binfo->vram, binfo->scrnx, 8, 8, COL8_FFFFFF, "ABC 123");
	mx = (binfo->scrnx - 16) / 2;
	my = (binfo->scrny - 28 - 16) / 2;
	init_mouse_cursor8(mcursor, COL8_0000FF);							 //初始化鼠标信息
	putblock8_8(binfo->vram, binfo->scrnx, 16, 16, mx, my, mcursor, 16); // 打印鼠标图形
	sprintf(s, "(%d, %d)", mx, my);
	putfonts8_asc(binfo->vram, binfo->scrnx, 0, 0, COL8_FFFFFF, s);

	enable_mouse(&mdec); //启用鼠标
	int mouse_decode(struct MOUSE_DEC * mdec, unsigned char dat);

	for (;;)
	{
		io_cli(); //禁止中断
		if (fifo8_status(&keyfifo) + fifo8_status(&mousefifo) == 0)
		{
			io_stihlt();
		}
		else
		{

			if (fifo8_status(&keyfifo) != 0)
			{
				i = fifo8_get(&keyfifo);
				io_sti();
				sprintf(s, "%02X", i);
				boxfill8(binfo->vram, binfo->scrnx, COL8_008484, 0, 16, 15, 31);
				putfonts8_asc(binfo->vram, binfo->scrnx, 0, 16, COL8_00FFFF, s);
			}
			else if (fifo8_status(&mousefifo) != 0)
			{
				i = fifo8_get(&mousefifo);
				io_sti();
				if (mouse_decode(&mdec, i) != 0)
				{
					/* 3字节都凑齐了，所以把它们显示出来*/
					sprintf(s, "[lcr %4d %4d]", mdec.x, mdec.y);
					if ((mdec.btn & 0x01) != 0)
					{
						s[1] = 'L';
					}
					if ((mdec.btn & 0x02) != 0)
					{
						s[3] = 'R';
					}
					if ((mdec.btn & 0x04) != 0)
					{
						s[2] = 'C';
					}
					boxfill8(binfo->vram, binfo->scrnx, COL8_008484, 32, 16, 32 + 15 * 8 - 1,
							 31);
					putfonts8_asc(binfo->vram, binfo->scrnx, 32, 16, COL8_FFFFFF, s);
					/* 鼠标指针的移动 */
					boxfill8(binfo->vram, binfo->scrnx, COL8_0000FF, mx, my, mx + 15, my + 15); /* 隐藏鼠标 */
					mx += mdec.x;
					my += mdec.y;
					if (mx < 0)
					{
						mx = 0;
					}
					if (my < 0)
					{
						my = 0;
					}
					if (mx > binfo->scrnx - 16)
					{
						mx = binfo->scrnx - 16;
					}
					if (my > binfo->scrny - 16)
					{
						my = binfo->scrny - 16;
					}
					sprintf(s, "(%3d, %3d)", mx, my);
					boxfill8(binfo->vram, binfo->scrnx, COL8_008484, 0, 0, 79, 15);		 /* 隐藏坐标 */
					putfonts8_asc(binfo->vram, binfo->scrnx, 0, 0, COL8_FFFFFF, s);		 /* 显示坐标 */
					putblock8_8(binfo->vram, binfo->scrnx, 16, 16, mx, my, mcursor, 16); /* 描画鼠标 */
				}
			}
		}
	}
}
#define PORT_KEYDAT 0x0060 //数据端口
#define PORT_KEYSTA 0x0064 //状态端口
#define PORT_KEYCMD 0x0064 //指令端口
#define KEYSTA_SEND_NOTREADY 0x02
#define KEYCMD_WRITE_MODE 0x60
#define KBC_MODE 0x47

void wait_KBC_sendready(void)
{
	/* 等待键盘控制电路准备完毕 */
	for (;;)
	{
		if ((io_in8(PORT_KEYSTA) & KEYSTA_SEND_NOTREADY) == 0)
		{
			break;
		}
	}
	return;
}
/* 初始化键盘控制函数 */
void init_keyboard(void)
{

	wait_KBC_sendready();
	io_out8(PORT_KEYCMD, KEYCMD_WRITE_MODE); //模式设定的指令是0x60
	wait_KBC_sendready();
	io_out8(PORT_KEYDAT, KBC_MODE); //鼠标模式的模式号码0x47
	return;
}

#define KEYCMD_SENDTO_MOUSE 0xd4
#define MOUSECMD_ENABLE 0xf4

void enable_mouse(struct MOUSE_DEC *mdec)
{
	/* 激活鼠标 */
	wait_KBC_sendready(); //等待键盘控制电路准备完毕
						  // 如果往键盘控制电路发送指令0xd4，下一个数据就会自动发送给鼠
						  // 标。我们根据这一特性来发送激活鼠标的指令。

	io_out8(PORT_KEYCMD, KEYCMD_SENDTO_MOUSE);
	wait_KBC_sendready();
	io_out8(PORT_KEYDAT, MOUSECMD_ENABLE); //答复鼠标
	mdec->phase = 0;					   /* 等待0xfa的阶段 */
	return;								   /*  顺利的话,键盘控制其会返送回ACK(0xfa) */
}

int mouse_decode(struct MOUSE_DEC *mdec, unsigned char dat)
{
	if (mdec->phase == 0)
	{
		/* 等待鼠标的0xfa的阶段 */
		if (dat == 0xfa)
		{
			mdec->phase = 1;
		}
		return 0;
	}
	if (mdec->phase == 1)
	{
		/* 等待鼠标第一字节的阶段 */
		if ((dat & 0xc8) == 0x08) //用于判断第一字节对移动有反应的部分是否在0～3的范围内
								  // 确保鼠标动作不错位
		{
			/* 如果第一字节正确 */
			mdec->buf[0] = dat;
			mdec->phase = 2;
		}

		return 0;
	}
	if (mdec->phase == 2)
	{
		/* 等待鼠标第二字节的阶段 */
		mdec->buf[1] = dat;
		mdec->phase = 3;
		return 0;
	}
	if (mdec->phase == 3)
	{
		/* 等待鼠标第三字节的阶段 */
		mdec->buf[2] = dat;
		mdec->phase = 1;
		mdec->btn = mdec->buf[0] & 0x07; //鼠标键的状态，放在buf[0]的低3位，
										 // 通过&取出

		mdec->x = mdec->buf[1];
		mdec->y = mdec->buf[2];
		// 需要使用第一字节中对
		// 鼠标移动有反应的几位（参考第一节的叙述）信息，将x和y的第8位及
		// 第8位以后全部都设成1，或全部都保留为0。这样就能正确地解读x和
		// y。

		if ((mdec->buf[0] & 0x10) != 0)
		{
			mdec->x |= 0xffffff00;
		}
		if ((mdec->buf[0] & 0x20) != 0)
		{
			mdec->y |= 0xffffff00;
		}
		mdec->y = -mdec->y; /* 鼠标的y方向与画面符号相反 */
		return 1;
	}
	return -1; /* 应该不可能到这里来 */
}